home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 063 - Wasteland Side 1.dsk / MAIN.bas < prev    next >
BASIC Source File  |  2019-02-17  |  28KB  |  423 lines
  1. 1  ONERR  GOTO 411
  2. 2  GOTO 412
  3. 3 X =  PEEK( -16368): CALL 54572: FOR II = 512 TO 767: IF  PEEK(II) < >0  THEN  NEXT 
  4. 4 I$ = X$:AG =  VAL(I$) + PEEK(131) +256 * PEEK(132): POKE AG,II -512: POKE AG +1,0: POKE AG +2,2:I$ =  MID$ (I$,1):II = 767: NEXT : RETURN 
  5. 5 FJ% = FI%: IF FI% >0  THEN E% = 1: GOSUB 319: IF FI% >D5  THEN 15
  6. 6  IF FI% = D5  THEN 8
  7. 7 I1% = TH% +1:I2% = NT% -2:IT = I1% +FI%: GOSUB 21
  8. 8 E% = 1:FI% = D5:FJ% = FI%:V$(25) = X$:IS = NT% -1:S = IS -TH%:B% = 0: GOSUB 185: GOSUB 319: IF T$ = H$  OR T$ = QA$  THEN  GOSUB 113: GOTO 8
  9. 9  IF I$ = Q$  THEN  GOSUB 92: GOTO 8
  10. 10  IF I$ = X$  THEN 15
  11. 11 I =  VAL(I$): IF I <1  OR I >NC%  THEN  GOSUB 82: GOTO 8
  12. 12 GC% = 0: IF I = 2  OR I = 4  OR I = 6  OR I = 8  OR I = 9  THEN GC% = 1
  13. 13 I1% = TH% +E1%(I):I2% = TH% +E2%(I):FR% = 1: GOSUB 20: IF GC% >1  THEN FI% = IT -TH% -2:FR% = 0: GOTO 7
  14. 14  GOTO 8
  15. 15 IS = NT%:S = IS -TH%:B% = 0:FJ% = D6: GOSUB 185: GOSUB 319: IF I$ = P$  THEN  GOSUB 87: CALL 48888: PRINT D$;"RUN PRINT"
  16. 16  IF I$ = Q$  THEN  GOSUB 92: GOTO 15
  17. 17  IF I$ = E$  THEN  GOSUB 312: GOTO 15
  18. 18  IF I$ = "R"  THEN 8
  19. 19  GOSUB 82: GOTO 15
  20. 20 IT = I1%
  21. 21 IT% = IT -TH%:FI% = IT% -1: IF FI% >FJ%  THEN FJ% = FI%
  22. 22  IF K(IT%) <1  THEN 26
  23. 23  IF B% <1  THEN 32
  24. 24 IT = IT -1: IF IT <I1%  THEN IT = I1%
  25. 25  GOTO 21
  26. 26 IS = IT:S = IT%:B% = 0: GOSUB 185: GOSUB 319: IF B% <1  AND (S < >C7  AND S < >A7  AND S < >B2  AND S < >B9)  THEN E% = 0
  27. 27  IF B% <1  THEN 32
  28. 28  IF S = B7  OR S = B9  THEN E% = 0
  29. 29 IT = IT -1: IF IT <I1%  AND FJ% > = D5  THEN IT = I1%: GOSUB 82
  30. 30  IF IT < = TH%  THEN IT = TH% +1: GOSUB 181: IF I$ = B$  THEN FI% = 0: GOSUB 87: PRINT D$;"RUN INTRO"
  31. 31  GOTO 21
  32. 32  IF (S = C7  OR S = A7  OR S = B2)  AND F4 >0  THEN IT = IT -1
  33. 33  IF (S = A6  AND CH% >0)  OR (S = B0  AND G >0)  THEN E% = 1
  34. 34  IF S = B9  AND F4 >0  THEN IT = IT -3
  35. 35 IT = IT +1: IF FR% >0  AND GC% >1  THEN  RETURN 
  36. 36  IF IT < = I2%  THEN 21
  37. 37  RETURN 
  38. 38  IF S = A2  AND N = 2  THEN V = R1:H = 26:F7 = 0: GOTO 45
  39. 39  IF N = 1  THEN 45
  40. 40  IF S = D5  THEN V = 20:H = 20: GOTO 45
  41. 41 V = V1:H = 2: IF (S = A7  OR S = B2  OR S = B9)  AND N = 2  THEN  GOSUB 177: CALL  -958: GOTO 45
  42. 42  IF S = C7  AND N = 2  THEN 45
  43. 43 V = 15:H = 1: IF N >144  THEN V = 14
  44. 44  IF N = 1  THEN V = 15:H = HC
  45. 45 I% = N/36: GOSUB 177: IF I% <1  THEN  FOR I = 1 TO N: PRINT UU$;: NEXT : GOTO 47
  46. 46  FOR I = 1 TO I%: PRINT UV$UV$UV$UV$;: NEXT : IF N >216  THEN  PRINT UV$UV$"____";
  47. 47  GOSUB 177: PRINT I$;: RETURN 
  48. 48 X =  PEEK( -16368): IF F8 >0  AND N >2  THEN C% = 0
  49. 49  GET T$: IF T$ = X$  THEN 49
  50. 50 A =  ASC(T$): IF A = 13  OR T$ = QA$  OR T$ = H$  THEN 60
  51. 51 L =  LEN(I$): IF A <32  OR A = 127  THEN 56
  52. 52  IF L <N  THEN 55
  53. 53  GOSUB 81: IF N = 1  THEN I$ = T$: PRINT  CHR$(8);T$;: GOTO 49
  54. 54  GOSUB 82: GOTO 49
  55. 55 I$ = I$ +T$: PRINT T$;: GOTO 49
  56. 56  IF (A < >8  AND A < >127)  OR L <1  THEN 49
  57. 57 T$ =  CHR$(8): IF L <2  THEN I$ = X$: GOTO 59
  58. 58 I$ =  LEFT$(I$,L -1): IF I$ =  CHR$(1)  THEN I$ = X$
  59. 59  PRINT T$;UU$;T$;: GOTO 49
  60. 60  IF N <3  AND  LEN(I$) = 1  THEN A =  ASC(I$): IF A >90  THEN I$ =  CHR$(A -32)
  61. 61  RETURN 
  62. 62  GOSUB 38: GOSUB 48: RETURN 
  63. 63  IF F2 >0  THEN 67
  64. 64 X =  PEEK( -16368):V = R2:H = 40: GOSUB 177: GET I$: PRINT U$;: IF I$ = X$  THEN 64
  65. 65  IF I$ = CR$  OR I$ = ES$  OR I$ = Y$  THEN 81
  66. 66  GOSUB 82: GOTO 64
  67. 67 TN% = N:N = 1:I$ = X$:V = R2:H = HC: IF F2 = 2  THEN V = R3:H = 21
  68. 68  IF F2 = 11  THEN V = R4
  69. 69  IF (S = A7  OR S = B2  OR S = B9)  AND M% >15  THEN H = 34
  70. 70  GOSUB 62:N = TN%: IF  LEN(I$) = 0  AND (T$ = CR$  OR T$ = H$  OR T$ = QA$  OR T$ = ES$)  THEN I$ = T$
  71. 71 V% =  VAL(I$): IF  LEN(I$) >0  THEN A =  ASC(I$): IF A >90  THEN I$ =  CHR$(A -32)
  72. 72  IF F2 = 2  THEN 81
  73. 73  IF F2 = 1  AND (I$ = Y$  OR I$ = N$  OR I$ = H$  OR I$ = QA$  OR I$ = B$  OR I$ = Q$)  THEN 81
  74. 74  IF F2 = 4  AND (I$ = SP$  OR I$ = CR$  OR I$ = H$  OR I$ = QA$  OR I$ = Q$  OR I$ = Y$  OR I$ = B$)  THEN 81
  75. 75  IF F2 = 6  AND (I$ = "R"  OR I$ = DD$  OR I$ = Y$  OR (I$ = "A"  AND M% < = MM%))  THEN 81
  76. 76  IF F2 = 8  AND (I$ = Y$  OR I$ = N$  OR I$ = H$  OR I$ = QA$)  THEN 81
  77. 77  IF F2 = 9  AND (I$ = Y$  OR I$ = C$)  THEN 81
  78. 78  IF F2 = 10  AND (I$ = M$  OR A = 13)  THEN 81
  79. 79  IF F2 = 11  AND (I$ = Y$  OR I$ = N$)  THEN 81
  80. 80  GOSUB 82: GOTO 63
  81. 81 X =  PEEK(SO):X =  PEEK(SO):X =  PEEK(SO): RETURN 
  82. 82  FOR I = 1 TO 30:X =  PEEK(SO): NEXT : RETURN 
  83. 83 F$ = "WD": GOSUB 176: PRINT O$F$: PRINT R$F$: INPUT FI%: INPUT CH%: INPUT D: INPUT G: INPUT SN$: INPUT FF: INPUT CP: INPUT AG%: INPUT AN$: IF SN$ < >X$  THEN F7 = 1
  84. 84  IF FI% <0  THEN FI% = 0
  85. 85  IF FI% >0  THEN V = 16:H = 4: GOSUB 177: PRINT "RESUMING WHERE YOU LEFT OFF..."
  86. 86  FOR I = 1 TO NV: GOSUB 3:V$(I) = I$: NEXT : PRINT K$: RETURN 
  87. 87  IF FJ% > = D5  THEN FI% = FJ%
  88. 88 F$ = "WD": GOSUB 176: PRINT O$F$: PRINT W$F$: PRINT FI%: PRINT CH%: PRINT D: PRINT G: PRINT SN$: PRINT FF: PRINT CP: PRINT AG%: PRINT AN$: FOR I = 1 TO NV: PRINT V$(I): NEXT : PRINT K$: IF (S = C7  OR S = A7)  AND CH% >0  THEN F = 1:M% = CH%: GOSUB 100
  89. 89  IF S = B2  AND D >0  THEN F = 2:M% = D: GOSUB 100
  90. 90  RETURN 
  91. 91 F$ = "ST": GOSUB 176: PRINT O$F$",L90": PRINT R$F$",R" VAL(V$(2)): INPUT SN$: INPUT FF: INPUT CP: INPUT AG%: INPUT AN$: PRINT K$: RETURN 
  92. 92  IF S = C7  OR S = A7  THEN CH% = M%
  93. 93  IF S = B2  THEN D = M%
  94. 94 F1 = 0: GOSUB 144: GOSUB 87:V = 10:H = 1: GOSUB 177: PRINT "TYPE "DQ$Y$DQ$" IF YOU REALLY WANT TO QUIT":V = 12: GOSUB 177: PRINT " TYPE ";DQ$C$DQ$TC$"THE PROGRAM":F2 = 9: GOSUB 63: IF I$ = C$  THEN  RETURN 
  95. 95  HOME :V = 10:H = 13: GOSUB 177: PRINT "SO LONG...": END 
  96. 96  IF M% <1  OR FC%(F) >0  THEN  RETURN 
  97. 97 F$ = "F" + STR$(F):LF% = 38: GOSUB 176: PRINT O$F$",L"LF%: FOR I = 1 TO M%
  98. 98  PRINT R$F$",R"I: GOSUB 3:TV$(I) = I$: NEXT : FOR I = 1 TO 16:GI%(I) = 0: NEXT 
  99. 99  PRINT K$:FC%(1) = 0:FC%(2) = 0:FC%(3) = 0:C% = 1:FC%(F) = 1: RETURN 
  100. 100  IF M% <1  OR C% >0  THEN  RETURN 
  101. 101 F$ = "F" + STR$(F):LF% = 38: GOSUB 176: PRINT O$F$",L"LF%: FOR I = 1 TO M%
  102. 102  PRINT W$F$",R"I: PRINT TV$(I): NEXT : GOTO 99
  103. 103  IF IG <1  OR IG >G  OR GI%(IG) = 1  THEN  RETURN 
  104. 104 F$ = "F": GOSUB 176:IG% = 3 *IG -2: PRINT O$F$",L240": PRINT R$F$",R"IG%: GOSUB 3:V$(21) = I$: PRINT R$F$",R"IG% +1: GOSUB 3:V$(22) = I$: PRINT R$F$",R"IG% +2: GOSUB 3:V$(23) = I$
  105. 105  PRINT K$:C% = 1: FOR I = 1 TO 16:GI%(I) = 0: NEXT :GI%(IG) = 1: RETURN 
  106. 106  IF IG <1  OR IG >G  THEN  RETURN 
  107. 107 I$ = V$(21): IF I$ = X$  THEN T1$ = NU$
  108. 108  IF  LEN(I$) >15  THEN I$ =  LEFT$(I$,14) +"+ ":FL% = 1
  109. 109 T1$ =  LEFT$(I$ +BL$,16):I$ = V$(22): IF I$ = X$  THEN I$ = NU$
  110. 110  IF  LEN(I$) >15  THEN I$ =  LEFT$(I$,14) +"+ ":FL% = 1
  111. 111 T1$ =  LEFT$(I$ +BL$,16) +T1$:TV$(IG) = T1$: IF C% >0  THEN  RETURN 
  112. 112 F$ = "F": GOSUB 176:IG% = 3 *IG -2: PRINT O$F$",L240": PRINT W$F$",R"IG%: PRINT V$(21): PRINT W$F$",R"IG% +1: PRINT V$(22): PRINT W$F$",R"IG% +2: PRINT V$(23):FC%(1) = 0:FC%(2) = 0:FC%(3) = 1: GOTO 105
  113. 113 WF = 0:F0% = 0: IF T$ < >QA$  THEN 115
  114. 114 WF = 1:GH% = H1:NN% = H1:PP = A0 +2 *GH%: GOTO 122
  115. 115  INVERSE : FOR I = 1 TO H%:VT = YT(I): POKE 66,VT:NN = 3 *VT -2 -23 * INT((VT -1)/8):NU = 1023 +40 *(NN -1) +8 * INT((NN -1)/3) +XT(I):LO = 60: GOSUB 142
  116. 116 NU = 1023 +40 *(NN -1) +8 * INT((NN -1)/3) +XT(I):LO = 60: GOSUB 142:L% = XB(I) -XT(I): POKE 64,L%:NR% = YB(I) -YT(I): POKE 65,NR%: CALL 887:V = YT(I):H = XT(I) -2: IF H < = 0  THEN H = 1
  117. 117  GOSUB 177: PRINT I;: NEXT : NORMAL :F1 = 5: GOSUB 144
  118. 118 F2 = 2: GOSUB 63:F0% = 1: IF I$ = CR$  OR I$ = ES$  THEN F0% = 0: RETURN 
  119. 119  IF I$ = QA$  THEN T$ = QA$: GOTO 113
  120. 120  IF V% <1  OR V% >H%  THEN  GOSUB 82: GOTO 118
  121. 121 NN% = NS%(V%):PP = A0 +2 *NN%
  122. 122 LO = PP: GOSUB 143:HP = NU: GOSUB 124:F2 = 0: GOSUB 63: IF I$ = ES$  THEN F0% = 0
  123. 123  RETURN 
  124. 124 NU = HP +3 +5 * PEEK(HP):LO = 60: GOSUB 142:NU = 1024:LO = 62: GOSUB 142: CALL 770:F1 = 2: GOSUB 168: GOSUB 144:V = 1:H = 9: IF NN% <3  THEN  GOSUB 177: PRINT "HELP:";: GOTO 127
  125. 125  IF NN% = H1  THEN 127
  126. 126 V = 1:H = 3: GOSUB 177: PRINT "DEFINITION:";:V = 3:H = 1: GOSUB 177: PRINT "...";
  127. 127  IF T$ < >QA$  THEN  RETURN 
  128. 128 IE% = FJ% +1: IF IE% >NE%  THEN IE% = NE%
  129. 129 K1% = K(B8):K2% = K(B7):K3% = K(B9): IF V$(24) = Y$  AND G >0  THEN K(B8) = 0:K(B7) = 0:K(B9) = 0
  130. 130  IF K(1) <1  THEN V = VE(1):H = HE%(1): GOSUB 177: INVERSE : PRINT "->";: GOSUB 81: IF IE% < = 1  THEN 137
  131. 131  FOR I = 2 TO IE%: IF I >1  AND K(I -1) <1  THEN  NORMAL :V = VE(I -1):H = HE%(I -1): GOSUB 177: PRINT " *";
  132. 132  IF K(I) <1  THEN V = VE(I):H = HE%(I): GOSUB 177: INVERSE : PRINT "->";: GOSUB 81
  133. 133  NEXT 
  134. 134  IF S = FI%  THEN 137
  135. 135 I = IE%: IF K(I) <1  THEN V = VE(I):H = HE%(I): GOSUB 177: NORMAL : PRINT " *";
  136. 136 I = S: IF I <NE% +1  AND K(I) <1  THEN V = VE(I):H = HE%(I): GOSUB 177: INVERSE : PRINT "->";: GOSUB 81
  137. 137 K(B8) = K4%:K(B7) = K5%:K(B9) = K6%: NORMAL : RETURN 
  138. 138 AP = A0 +2 *IS:AH =  PEEK(AP) +256 * PEEK(AP +1):H% =  PEEK(AH): IF H% <1  THEN 140
  139. 139  FOR I = 1 TO H%:AB = AH +5 *I -2:XT(I) =  PEEK(AB):YT(I) =  PEEK(AB +1):XB(I) =  PEEK(AB +2):YB(I) =  PEEK(AB +3):NS%(I) =  PEEK(AB +4): NEXT 
  140. 140 N =  PEEK(AH +1):IV% =  PEEK(AH +2):AS = AH +3 +5 *H%: IF S = C4  OR S = C2  THEN AP = A0 +2 *(B9 +TH%):AH =  PEEK(AP) +256 * PEEK(AP +1):AS = AH +3 +5 * PEEK(AH)
  141. 141  RETURN 
  142. 142  POKE LO +1,NU/256: POKE LO,NU -256 * PEEK(LO +1): RETURN 
  143. 143 NU =  PEEK(LO) +256 * PEEK(LO +1): RETURN 
  144. 144  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,R3:H = 3:V = R2: GOSUB 177: PRINT L$;L$;L$;L$;: IF F1 = 2  AND WF = 1  THEN 161
  145. 145  GOSUB 184: IF F1 < >1  THEN 149
  146. 146  IF N <1  OR S = D5  THEN H = 4: GOSUB 177: PRINT "PRESS "RT$" TO GO TO NEXT SCREEN";: GOTO 156
  147. 147  IF N >2  THEN H = 4: GOSUB 177: PRINT "TYPE REQUESTED INFO.& THEN "RT$;: GOTO 156
  148. 148 H = 5: GOSUB 177: PRINT "PLEASE ANSWER THE ABOVE QUESTION";: GOTO 156
  149. 149  IF F1 < >2  THEN 153
  150. 150 H = 8: IF H% >1  THEN H = 3
  151. 151  GOSUB 177: PRINT J$RT$;: IF H% >1  THEN  PRINT " IF YOU WANT MORE DEF'S";: GOTO 156
  152. 152  PRINT TC$;: GOTO 156
  153. 153  IF F1 = 3  THEN H = 4: GOSUB 177: PRINT "USE LEFT ARROW KEY TO ERASE ERRORS";: GOTO 156
  154. 154  IF F1 = 4  THEN H = 7: GOSUB 177: PRINT J$DQ$Y$DQ$" OR "DQ$N$DQ$" AND "RT$;
  155. 155  IF F1 = 5  THEN H = 5: GOSUB 177: PRINT "TYPE NO. YOU WANT...THEN "RT$: PRINT " ("RT$" WHEN DONE WITH DEFINITION)";: GOTO 161
  156. 156 V = R4:H = 2: IF S = D5  AND F1 < >2  THEN H = 10: GOSUB 177: PRINT "?=DEF  Q=QUIT  *=WHERE?";: GOTO 161
  157. 157  GOSUB 177: IF (F1 = 1  OR F1 = 4)  AND F8 <1  THEN  PRINT "(?=DEF  B=BACK UP  Q=QUIT  *=WHERE?)";: GOTO 161
  158. 158  IF F1 = 1  OR F1 = 4  THEN  PRINT "         (?=DEF    *=WHERE?)";: GOTO 161
  159. 159  IF F1 = 3  THEN  PRINT " ?=DEF   *=WHERE? "RT$" WHEN DONE";
  160. 160  IF F1 = 2  AND H% >1  THEN  PRINT  SPC( 6)DQ$"ESC"DQ$"    IF YOU DON'T";
  161. 161  GOSUB 183:SP = S +9: IF S >15  THEN SP = SP -1
  162. 162 S1% =  INT(SP/10):S0% = SP -10 *S1%: IF S0% = 0  THEN  POKE 2039,15: GOTO 164
  163. 163  POKE 2039,S0% +48
  164. 164  IF S1% >0  THEN  POKE 2038,S1% +48
  165. 165  IF F0% >0  THEN  POKE 2037,4
  166. 166  IF S = 16  THEN  POKE 2037,1
  167. 167  RETURN 
  168. 168 I$ = F1$ + STR$(F%(S)) +BL$: IF F%(S) >9  THEN I$ =  MID$ (I$,2,23)
  169. 169  IF F0% >0  THEN I$ = F1$ +"15" +BL$
  170. 170  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,R3: FOR I = 1 TO R2: VTAB I: HTAB 1: INVERSE : PRINT  MID$ (I$,I,1);: HTAB 40: NORMAL : PRINT "!";: NEXT : GOSUB 183: RETURN 
  171. 171 H = 17: GOSUB 179: IF I$ = Y$  AND N = 1  THEN  PRINT "YES": RETURN 
  172. 172  IF I$ = N$  AND N = 1  THEN  PRINT "NO": RETURN 
  173. 173 HH = (39 - LEN(I$))/2: IF HH <1  THEN HH = 1
  174. 174  IF HH >20  THEN HH = 20
  175. 175  HTAB HH: PRINT I$;: RETURN 
  176. 176  GOSUB 180:V = 10:H = 4: GOSUB 177: PRINT "PLEASE WAIT: DISK DRIVE IN USE": RETURN 
  177. 177  HTAB H
  178. 178  VTAB V: RETURN 
  179. 179  HTAB H: RETURN 
  180. 180  POKE 32,1: POKE 33,38: POKE 34,1: POKE 35,R1: HOME : GOSUB 183: RETURN 
  181. 181  GOSUB 184: GOSUB 180:V = 6:H = 2: GOSUB 177: PRINT "NOTE: "DQ$B$DQ$" HERE TAKES YOU BACK TO":V = V +2: GOSUB 177: PRINT "THE BEGINNING OF WILLWRITER."
  182. 182 H = 2:V = V +3: GOSUB 177: PRINT J$DQ$B$DQ$" & "RT$" AGAIN IF YOU":V = V +2: GOSUB 177: PRINT "WISH TO DO THIS. OTHERWISE JUST":V = V +2: GOSUB 177: PRINT "PRESS "RT$" TO RESUME.":F2 = 4: GOSUB 63: RETURN 
  183. 183  POKE 32,2: POKE 33,36: POKE 34,0: POKE 35,R1: RETURN 
  184. 184  TEXT :H = 2:V = R3: GOSUB 177: CALL  -958: RETURN 
  185. 185  GOSUB 138:F8 = 0: IF S = C7  OR S = B8  OR S = B7  OR S = B9  OR S = A7  OR S = B2  THEN F8 = 1
  186. 186  IF F0% >0  AND H% = 1  THEN F0% = 0
  187. 187 F9 = 0: IF E% >0  AND (S = B8  OR S = B7)  THEN F9 = 1:S = B9:IS = TH% +S:IT = IS
  188. 188 NU = AS:LO = 60: GOSUB 142:NU = 1024:LO = 62: GOSUB 142: CALL 770: GOSUB 168: GOSUB 310: IF E% >0  AND (S = C7  OR S = A7  OR S = B2  OR S = B9)  THEN 258
  189. 189  IF S = B2  AND F4 <1  AND D >0  THEN 258
  190. 190  IF (S = C7  OR S = A7)  AND F4 <1  AND CH% >0  THEN 258
  191. 191  IF F0% >0  AND H% >1  THEN  GOSUB 113: GOTO 185
  192. 192  IF F3 <1  THEN 195
  193. 193 F1 = 1: GOSUB 144:I$ = V$(IV%):F3 = 0: IF N = 1  THEN V = R2:H = HC:I$ = X$
  194. 194 F3 = 0: GOSUB 62: GOTO 204
  195. 195  IF V$(IV%) = U$  THEN V$(IV%) = X$
  196. 196  IF N >0  AND V$(IV%) < >X$  THEN 215
  197. 197  IF N >0  THEN 199
  198. 198 F1 = 1: GOSUB 144:F2 = 4: GOSUB 63: GOTO 206
  199. 199 F1 = 1: IF S = D6  THEN F1 = 0
  200. 200  GOSUB 144: IF N = 1  THEN V = R2:H = HC
  201. 201  IF N <3  THEN I$ = X$: GOSUB 62: IF S = D6  THEN  RETURN 
  202. 202  IF N <3  THEN 204
  203. 203 I$ = X$:C% = 0: GOSUB 62
  204. 204  IF S = D5  THEN  RETURN 
  205. 205  IF T$ = H$  OR T$ = QA$  THEN F3 = 1:V$(IV%) = I$: GOSUB 113: GOTO 185
  206. 206  IF I$ = H$  OR I$ = QA$  THEN T$ = I$: GOSUB 113: GOTO 185
  207. 207  IF F8 >0  THEN B% = 0: GOTO 212
  208. 208  IF I$ = Q$  OR I$ = QQ$  THEN  GOSUB 92: GOTO 185
  209. 209 B% = 0: IF I$ = B$  OR I$ = BB$  THEN B% = 1:E% = 1: RETURN 
  210. 210  IF S = A1  AND  LEN(I$) <2  THEN  GOSUB 82: GOTO 185
  211. 211  IF N = 1  AND I$ < >Y$  AND I$ < >N$  THEN  GOSUB 82: GOTO 185
  212. 212  IF N <1  THEN  RETURN 
  213. 213  IF N <3  THEN V% =  VAL(I$): IF S = A2  THEN  IF V% <1  OR V% >ST%  THEN  GOSUB 82:I$ = X$: GOTO 199
  214. 214  GOSUB 240:V$(IV%) = I$: IF I$ = X$  THEN V$(IV%) = NU$
  215. 215 F1 = 4: GOSUB 144:V = 11: IF S = C3  OR S = C1  THEN V = 13
  216. 216 H = 1: GOSUB 177: CALL  -958:I$ = V$(IV%): IF S < >A2  THEN 219
  217. 217  IF F7 <1  THEN F7 = 1: GOSUB 91
  218. 218  GOSUB 180: GOSUB 177:I$ = SN$:V = 11
  219. 219  IF S < >C1  AND S < >C2  AND S < >C3  AND S < >C4  THEN 222
  220. 220  IF I$ = C$  AND V$(5) = Y$  THEN I$ = CH$
  221. 221  IF I$ = S$  AND V$(3) = Y$  THEN I$ = V$(4)
  222. 222 V = 11:H = 1: GOSUB 177: CALL  -958:H = 12:V = 12: GOSUB 177:L =  LEN(I$): PRINT Z$"ANSWER IS:": IF L <212  THEN  PRINT 
  223. 223  GOSUB 171: PRINT : IF L <172  THEN  PRINT 
  224. 224 I$ = "IS THIS OK?--USE " +DQ$ +N$ +DQ$ +" TO CHANGE": GOSUB 173:F2 = 1: IF F8 >0  THEN F2 = 8
  225. 225  GOSUB 63: IF T$ = H$  OR T$ = QA$  THEN  GOSUB 113: GOTO 185
  226. 226  IF I$ < >N$  THEN 243
  227. 227  IF FR% >0  AND GC% >0  AND S < >A7  THEN  GOSUB 237: RETURN 
  228. 228  IF N >2  THEN 231
  229. 229 V$(IV%) = X$: IF S = A2  THEN SN$ = X$
  230. 230  GOTO 185
  231. 231 I$ = V$(IV%):V = 12:H = 1: GOSUB 177: CALL  -958: IF I$ = NU$  THEN I$ = X$
  232. 232  PRINT "YOU MAY MAKE CHANGES IN THIS ENTRY":F1 = 3: GOSUB 144:V = 15:H = 1: GOSUB 177
  233. 233  GOSUB 62: IF T$ = H$  OR T$ = QA$  OR I$ = Q$  OR I$ = QQ$  OR I$ = B$  OR I$ = BB$  THEN 204
  234. 234  GOSUB 240:V$(IV%) = I$: IF S < >C7  AND S < >B2  AND S < >A7  THEN 185
  235. 235 TV$(J% +1) = I$: IF I$ = X$  THEN  GOSUB 304: GOTO 258
  236. 236 F4 = 1: GOTO 185
  237. 237 V = 16:H = 1: GOSUB 177: POKE 32,1: POKE 33,37: POKE 35,R4: CALL  -958: PRINT " >CHANGES HERE AFFECT LATER SCREENS,": PRINT " SO YOU WOULD HAVE TO REVIEW THESE": PRINT " ANSWERS AND PERHAPS ANSWER SOME": PRINT " NEW QUESTIONS.": PRINT 
  238. 238  PRINT "  TYPE "DQ$Y$DQ$" TO MAKE THIS CHANGE<CTRL-G>":H = H +7: GOSUB 179: PRINT DQ$N$DQ$TC$"THE REVIEW";:F2 = 11: GOSUB 63: IF I$ = Y$  THEN GC% = 2:FJ% = FI%
  239. 239  RETURN 
  240. 240  IF I$ = CC$  THEN I$ = C$
  241. 241  IF I$ = SS$  THEN I$ = S$
  242. 242  RETURN 
  243. 243  IF I$ < >Y$  THEN 206
  244. 244  IF S = A2  THEN  GOSUB 315
  245. 245  IF S < >B8  THEN 248
  246. 246  IF V$(21) = X$  AND G <1  THEN 259
  247. 247 J% = J% +1:TV$(J%) = V$(21):F4 = 1: IF M% = J% -1  THEN M% = J%
  248. 248  IF S < >C7  AND S < >B2  AND S < >A7  AND S < >B9  THEN  RETURN 
  249. 249  IF (S < >A7  AND S < >C7)  THEN 253
  250. 250  IF V$(0) = X$  THEN 259
  251. 251 J% = J% +1:TV$(J%) = V$(0):F4 = 1: IF M% = J% -1  THEN M% = J%:CH% = M%
  252. 252  GOTO 258
  253. 253  IF S < >B2  THEN 257
  254. 254  IF V$(26) = X$  THEN 259
  255. 255 J% = J% +1:TV$(J%) = V$(26):F4 = 1: IF M% = J% -1  THEN M% = J%:D = M%
  256. 256  GOTO 258
  257. 257 IG = J%:G = M%: GOSUB 106
  258. 258 E% = 0: GOSUB 180:F1 = 0: GOSUB 144
  259. 259  IF M% <1  THEN B% = 1: RETURN 
  260. 260 S1$ = "CHILD":I$ = S1$ +"REN":S2$ = "NAMED": IF S = B2  THEN S1$ = "GRANDCHILD":I$ = S1$ +"REN"
  261. 261  IF S = B9  THEN S1$ = "BEQUEST":I$ = S1$ +S$
  262. 262 V = 1:H = 1: GOSUB 177: PRINT  SPC( 35);: GOSUB 177: PRINT " THE ";I$;" YOU HAVE ";S2$;":": PRINT : IF M% >MM% -2  THEN  POKE 35,R2
  263. 263 EC% = 0: FOR I = 1 TO M%:FE% = 0:H = 2: IF I >9  THEN H = 1
  264. 264  GOSUB 179:I$ = TV$(I): IF  LEFT$(I$,1) < >U$  THEN 267
  265. 265 EC% = 1: IF S = B9  THEN I$ = HY$ +DQ$ +"R" +DQ$ +" WILL LET YOU USE THIS SPACE"
  266. 266  IF S = C7  THEN FE% = 1:I$ =  MID$ (I$,2,31)
  267. 267  IF  LEN(I$) >32  THEN I$ =  LEFT$(I$,31) +AS$:FL% = 1
  268. 268  PRINT I"."I$;: IF FE% >0  THEN  INVERSE : PRINT "X";: NORMAL 
  269. 269  PRINT : NEXT :V1 =  PEEK(37) +3: IF M% <MM%  THEN  PRINT 
  270. 270  IF S < >C7  THEN 278
  271. 271  PRINT SP$J$"NUMBER ";: IF EC% <1  THEN  PRINT "OF CHILD TO EXCLUDE": GOTO 273
  272. 272  PRINT "TO EXCLUDE ADDITIONAL": PRINT " CHILD OR RESTORE EXCLUDED CHILD"
  273. 273  PRINT " >TYPE "DQ$Y$DQ$" WHEN LIST IS OK": IF EC% >0  THEN  PRINT  SPC( 6);: INVERSE : PRINT "X";: NORMAL : PRINT " MEANS CHILD IS EXCLUDED";
  274. 274 V1 = V1 +2:N = 2:I$ = X$: GOSUB 62:CI =  VAL(I$): IF I$ = Y$  THEN 282
  275. 275  IF CI <1  OR CI >CH%  THEN 258
  276. 276 C% = 0:I$ = TV$(CI): IF  LEFT$(I$,1) = U$  THEN TV$(CI) =  MID$ (I$,2,78): GOTO 258
  277. 277 TV$(CI) = U$ +I$: GOTO 258
  278. 278  PRINT J$DQ$"A"DQ$"-TO ADD ANOTHER "S1$:H = 6: GOSUB 179: PRINT DQ$"R"DQ$"-TO REVIEW OR CHANGE ONE": GOSUB 179: PRINT DQ$DD$DQ$"-TO DELETE ONE": GOSUB 179: PRINT DQ$Y$DQ$"-IF LIST IS OK AS IS";
  279. 279  IF M% >MM%  THEN V = 19:H = 1: GOSUB 177: CALL  -868: PRINT "*NO MORE CAN BE NAMED*": PRINT J$
  280. 280 V = R3:H = 2: GOSUB 177: PRINT J$"APPROPRIATE LETTER & ";RT$;: IF FL% >0  THEN V = R4:H = 2: GOSUB 177: FLASH : PRINT AS$;: NORMAL : PRINT ":TRUNCATED FOR DISPLAY ONLY";
  281. 281  POKE 35,R4:F2 = 6: GOSUB 63:TT$ = I$:V = R2:H = 1: GOSUB 177: CALL  -958: IF TT$ < >Y$  THEN 286
  282. 282  IF S = C7  OR S = A7  THEN CH% = M%:F = 1: GOSUB 100
  283. 283  IF S = B2  THEN D = M%:F = 2: GOSUB 100
  284. 284  IF S = B9  THEN C% = 0:G = M%:F = 3: GOSUB 100
  285. 285 F4 = 0:M% = 0:J% = 0: RETURN 
  286. 286  IF FR% >0  AND GC% >0  AND ((TT$ = "A"  AND M% <2)  OR (TT$ = DD$  AND M% = 2))  THEN  GOSUB 237:F4 = 0: RETURN 
  287. 287  IF TT$ = "A"  THEN V$(26) = X$:V$(0) = X$:V$(21) = X$:V$(22) = X$:V$(23) = X$:F4 = 1:J% = M%: RETURN 
  288. 288 H = 2:V = M% +3: GOSUB 177: CALL  -958: IF M% >1  THEN 292
  289. 289  IF TT$ < >DD$  THEN CI = 1: GOTO 299
  290. 290 V$(IV%) = X$: IF S = B9  THEN  GOSUB 302:B% = 1:G = 0:M% = 0:J% = 0: RETURN 
  291. 291  GOSUB 305:B% = 1: RETURN 
  292. 292 V = 20:S1$ = "DELETE": IF I$ = "R"  THEN S1$ = "REVIEW OR CHANGE"
  293. 293  PRINT : PRINT "TYPE NO. OF ITEM TO "S1$SP$;:N = 2:I$ = X$: GOSUB 62:CI =  VAL(I$): IF CI = 0  THEN 258
  294. 294  IF CI <1  OR CI >M%  THEN  GOSUB 82: GOTO 288
  295. 295 J% = CI -1:V = 2 +CI:H = 1: GOSUB 177: PRINT ">";: IF TT$ < >DD$  THEN 299
  296. 296 L% =  LEN(TV$(CI)) +2: IF L% >35  THEN L% = 35
  297. 297  SPEED= 95: FOR I = 1 TO L%: GOSUB 81: PRINT UL$;: NEXT : SPEED= 255: IF S = B9  THEN  GOSUB 302: GOTO 257
  298. 298  GOSUB 304:F4 = 1:E% = 1: RETURN 
  299. 299  IF S = B9  THEN IG = CI:J% = CI -1: GOSUB 103:F4 = 1: RETURN 
  300. 300  IF I$ = DD$  THEN  GOSUB 307: RETURN 
  301. 301 N = 36:V$(IV%) = TV$(CI):J% = CI -1: GOTO 231
  302. 302 J% = J% +1: IF J% = M%  THEN G = J% -1:M% = G
  303. 303 C% = 0:TV$(J%) = X$:V$(21) = U$:V$(22) = U$:V$(23) = U$: RETURN 
  304. 304 IX = J% +1: IF IX <M%  THEN  FOR I = IX TO M% -1:TV$(I) = TV$(I +1): NEXT 
  305. 305  IF (S = C7  OR S = A7)  AND CH% >0  THEN CH% = CH% -1:M% = CH%: GOTO 309
  306. 306  IF S = B2  AND D >0  THEN D = D -1:M% = D: GOTO 309
  307. 307  IF S = B9  AND G >0  THEN G = G -1:M% = G: GOTO 309
  308. 308 M% = 0
  309. 309 J% = M%:C% = 0: RETURN 
  310. 310  ON S GOTO 311,311,311,345,311,345,346,345,345,345,394,350,351,352,345,311,337,338,339,341,342,341,343,386,345,346,361,344,361,344,361,344,398,311
  311. 311  RETURN 
  312. 312 V = 17:H = 15: GOSUB 177: FLASH : PRINT "WARNING:": NORMAL : PRINT "ALL INFORMATION WILL BE ERASED!": PRINT J$DQ$Y$DQ$" TO ERASE EVERYTHING": PRINT J$DQ$N$DQ$" TO NOT ERASE":F2 = 11: GOSUB 63: IF I$ < >Y$  THEN 314
  313. 313  CLEAR : GOSUB 423: GOSUB 88: PRINT D$"RUN INTRO"
  314. 314  RETURN 
  315. 315 V = 1:H = 1: GOSUB 177: CALL  -868: GOSUB 184: GOSUB 180:F1 = 2: GOSUB 144:V = 4: GOSUB 178:I$ = "TO WRITE A LEGAL WILL IN": GOSUB 173:V = V +2: GOSUB 177:I$ = SN$ +",": GOSUB 173
  316. 316 V = V +2: GOSUB 178:I$ = "YOU MUST BE " + STR$(AG%) +" YEARS OLD,": GOSUB 173:V = V +2: GOSUB 178:I$ = "AND OF SOUND MIND.": GOSUB 173: IF  LEN(AN$) <5  THEN 318
  317. 317 V = V +4: GOSUB 178:I$ = "SPECIAL NOTE:": GOSUB 173:H = 2:V = V +2: GOSUB 177: PRINT AN$;
  318. 318 F2 = 0: GOSUB 63: RETURN 
  319. 319 FL% = 0: FOR I = 1 TO NS%:K(I) = 0: NEXT : IF V$(5) < >Y$  THEN CH% = 0:K(A7) = 1:K(C6) = 1:K(A8) = 1:V$(6) = X$:V$(20) = X$:V$(0) = X$
  320. 320  IF V$(6) < >Y$  THEN K(C8) = 1:K(C9) = 1:K(D1) = 1:K(D2) = 1
  321. 321  IF V$(16) < >Y$  THEN K(B1) = 1:V$(19) = X$
  322. 322  IF V$(19) < >Y$  THEN K(B2) = 1
  323. 323  IF V$(20) < >Y$  THEN K(C7) = 1
  324. 324  IF V$(11) = X$  OR V$(11) = NU$  THEN K(C9) = 1
  325. 325  IF V$(14) = X$  OR V$(14) = NU$  THEN K(D2) = 1
  326. 326  IF V$(9) = X$  OR V$(9) = NU$  THEN K(C4) = 1
  327. 327  IF V$(10) = X$  OR V$(10) = NU$  THEN K(C2) = 1
  328. 328  IF V$(17) = X$  OR V$(17) = NU$  THEN K(D4) = 1
  329. 329 K(B3) = 1: IF CP >0  THEN K(B3) = 0:K(B4) = 1:K(C5) = 1
  330. 330  IF V$(3) < >Y$  THEN K(A5) = 1:K(B3) = 1:K(B4) = 1:K(C5) = 1:V$(4) = X$
  331. 331 K(B7) = 1:K(B8) = 1:K(B9) = 1: IF (S = B0  AND V$(24) = Y$)  OR S = B7  OR S = B8  OR S = B9  THEN K(B8) = 0:K(B7) = 0:K(B9) = 0
  332. 332  IF V$(24) < >Y$  THEN K(B0) = 1
  333. 333  IF B% >0  THEN K(B8) = 1:K(B7) = 1:K(B9) = 1:K(C7) = 1:K(A7) = 1:K(B2) = 1
  334. 334  IF CH% <2  OR (V$(7) < >C$  AND V$(8) < >C$  AND V$(9) < >C$  AND V$(10) < >C$)  THEN K(C6) = 1:K(C7) = 1
  335. 335 CH$ = "YOUR CHILD": IF CH% >1  THEN CH$ = CH$ +"REN"
  336. 336  RETURN 
  337. 337  GOSUB 355: GOTO 361
  338. 338  GOSUB 355: GOTO 364
  339. 339  GOSUB 355: IF F9 >0  THEN  RETURN 
  340. 340  GOSUB 364: GOSUB 361: GOTO 372
  341. 341  GOSUB 373: GOTO 361
  342. 342  GOSUB 384: GOSUB 380: GOTO 372
  343. 343  GOSUB 385: GOSUB 380: GOTO 372
  344. 344  GOSUB 361: GOSUB 372: GOTO 387
  345. 345 V = 11:H = 5: GOSUB 177: PRINT "IF YES TYPE "DQ$Y$DQ$" AND "RT$:V = 13: GOSUB 177: PRINT "IF NO  TYPE "DQ$N$DQ$" AND "RT$: RETURN 
  346. 346  IF CH% <1  THEN FC%(1) = 1
  347. 347 M% = CH%: IF CH% >0  AND E% >0  THEN J% = CH%
  348. 348 V = 10:H = 33: IF CH% >0  AND FC%(1) <1  THEN J% = CH%:F = 1: GOSUB 96:V$(0) = TV$(J%)
  349. 349  GOSUB 177: PRINT J% +1: RETURN 
  350. 350 V = 4: GOSUB 178:I$ = SN$: GOSUB 171: RETURN 
  351. 351 V = 5:H = 21: GOSUB 177: PRINT SN$;",": RETURN 
  352. 352 V = 15:H = 2: GOSUB 177: IF V$(3) < >Y$  THEN  CALL  -868: RETURN 
  353. 353 H = 3: GOSUB 177: IF CP >0  THEN  PRINT Z$"SURVIVING SPOUSE'S SHARE":V = V +1: GOSUB 177: PRINT "OF COMMUNITY PROPERTY": RETURN 
  354. 354  PRINT "PROPERTY OWNED BY "Z$"SPOUSE": RETURN 
  355. 355  IF G >0  AND E% >0  THEN M% = G:J% = G
  356. 356 V = R1:H = 15: IF G >0  AND FC%(3) <1  THEN M% = G:J% = G:F = 3: GOSUB 96:V$(21) = TV$(J%)
  357. 357  IF S = B7  AND SX% < = J%  THEN SX% = J% +1
  358. 358  IF S = B9  THEN V = 1:H = R4
  359. 359  IF F9 >0  THEN  RETURN 
  360. 360  GOSUB 177: PRINT "BEQUEST #"SX%;: RETURN 
  361. 361 V = 11:H = 1: IF S = C4  OR S = C2  THEN V = 12
  362. 362  GOSUB 177: PRINT "IF YOU USE AN ADDRESS, SEPARATE THE":V = V +1: GOSUB 177: PRINT "NAME, STREET, AND CITY & STATE WITH":V = V +1: GOSUB 177: PRINT "SEMICOLONS";: IF S < >C4  AND S <C2  THEN  PRINT " (;)";
  363. 363  PRINT ".": RETURN 
  364. 364 V = 8: IF S = B9  THEN V = 3
  365. 365 I$ = V$(22):L =  LEN(I$): IF L >72  OR (S = B9  AND L >69)  THEN I$ = "THIS PERSON (OR INSTITUTION)"
  366. 366  IF L <37  AND S = B8  THEN V = V +1
  367. 367  IF S = B9  THEN I$ = "IF " +I$
  368. 368  GOSUB 178: GOSUB 173: IF S = B8  THEN  RETURN 
  369. 369 I$ = V$(21): IF  LEN(I$) >108  THEN I$ = "THIS BEQUEST"
  370. 370 V = 6:L =  LEN(I$): IF L <73  THEN V = V +1
  371. 371  GOSUB 177: GOSUB 173: RETURN 
  372. 372 V = 20:H = 1: GOSUB 177: PRINT SP$J$RT$" IF YOU DON'T WANT TO":V = V +1: GOSUB 177: PRINT "NAME AN ALTERNATE";: RETURN 
  373. 373 V = 6:H = 2: GOSUB 177: IF V$(5) < >Y$  THEN 377
  374. 374  IF CH% <2  THEN  PRINT "USE "DQ$C$DQ$" TO NAME "CH$
  375. 375  IF CH% >1  THEN  PRINT "USE "DQ$C$DQ$" TO NAME YOUR CHLDRN EQUALLY"
  376. 376 V = V +1: GOSUB 177: PRINT "OR ";
  377. 377  IF V$(3) = Y$  THEN  PRINT "USE "DQ$S$DQ$" TO NAME "Z$"SPOUSE":V = V +1: GOSUB 177: PRINT "OR ";
  378. 378  PRINT "NAME PERSON(S) OR CHARITY(S)": PRINT " TO RECEIVE THIS PROPERTY IN EQUAL": PRINT " SHARES"
  379. 379  RETURN 
  380. 380 T$ = V$(10): IF S = C4  THEN T$ = V$(9)
  381. 381 V = 12:H = 1: GOSUB 177: IF V$(3) = Y$  AND T$ < >S$  THEN  PRINT "USE "DQ$S$DQ$" TO NAME YOUR SPOUSE"
  382. 382  IF V$(5) = Y$  AND T$ < >C$  THEN  PRINT "USE "DQ$C$DQ$" TO NAME YOUR CHILDREN"
  383. 383  PRINT "USE SEMICOLONS TO SEPARATE ELEMENTS": RETURN 
  384. 384 I$ = V$(10): GOSUB 405:I$ = "YOUR REAL ESTATE": GOSUB 409:I$ =  RIGHT$(I$,11): GOTO 410
  385. 385 I$ = V$(9): GOSUB 405:I$ = "THE REST OF YOUR PROPERTY": GOSUB 409:I$ = "REST OF PROP.": GOTO 410
  386. 386 V = 3:H = R2: GOSUB 177: PRINT SN$;",": RETURN 
  387. 387  IF S = C9  THEN I$ = V$(11)
  388. 388  IF S = D2  THEN I$ = V$(14)
  389. 389  IF S = D4  THEN I$ = V$(17)
  390. 390  IF I$ = C$  THEN I$ = Z$ +CH$
  391. 391  IF I$ = S$  THEN I$ = Z$ +"SPOUSE, " +V$(4)
  392. 392 V = 7: IF  LEN(I$) >108  THEN V = 6
  393. 393  GOSUB 177: GOSUB 173: RETURN 
  394. 394  IF D <1  THEN FC%(2) = 1
  395. 395 M% = D: IF D >0  AND E% >0  THEN J% = D
  396. 396 V = 13:H = 24: IF D >0  AND FC%(2) <1  THEN J% = D:F = 2: GOSUB 96:V$(0) = TV$(J%)
  397. 397  GOTO 349
  398. 398 II = 0: IF (V$(7) = C$  OR V$(8) = C$  OR V$(9) = C$  OR V$(10) = C$)  AND CH% >1  THEN II = 1: IF V$(3) = Y$  AND V$(6) = Y$  THEN  RETURN 
  399. 399  SPEED= 225: IF EF = 0  THEN  SPEED= 120:EF = 1
  400. 400 V = 2:H = 11: GOSUB 177:I$ = " ERASING ITEMS NOT NEEDED ": INVERSE : FOR I = 1 TO 26: PRINT  MID$ (I$,I,1);: GOSUB 81: NEXT : NORMAL : IF V$(3) < >Y$  THEN V = 7: GOSUB 404
  401. 401  IF II = 0  THEN V = 13: GOSUB 404
  402. 402  IF V$(6) < >Y$  THEN V = 15: GOSUB 404:V = V +1: GOSUB 404
  403. 403 V = 2: GOSUB 404: SPEED= 255: RETURN 
  404. 404  GOSUB 177: FOR I = 1 TO 26: GOSUB 81: PRINT SP$;: NEXT : RETURN 
  405. 405 H = 1: IF I$ = C$  THEN I$ = CH$:V = 19: GOSUB 177: PRINT "(SEE MANUAL SECTION 7.C FOR DETAILS)";: IF CH% >1  THEN I$ = "ALL THE CHILDREN":H = 3:V = 9: GOSUB 177: PRINT "  "
  406. 406  IF I$ = S$  THEN I$ = "YOUR SPOUSE, " +V$(4)
  407. 407 I$ = "IF " +I$:L =  LEN(I$): IF L >72  THEN I$ =  LEFT$(I$,71) +AS$
  408. 408 V = 3: GOSUB 177: GOSUB 173: RETURN 
  409. 409 V = 7: GOSUB 177: GOSUB 173: RETURN 
  410. 410 V = 1:H = 24: GOSUB 177: PRINT I$: RETURN 
  411. 411  GOSUB 180: GOSUB 168:V = 10:H = 1: GOSUB 177: PRINT "OOPS..A PROGRAM ERROR!": PRINT : PRINT "PLEASE REPORT ERROR NUMBER " PEEK(222): PRINT : PRINT "AT LINE NUMBER " PEEK(218) + PEEK(219) *256: END 
  412. 412 R1 = 21:R2 = 22:R3 = 23:R4 = 24:HC = 18:X$ = "":SO =  -16336:MM% = 15: GOSUB 183: GOSUB 180: GOSUB 423: GOSUB 83
  413. 413 UV$ = "_________":UU$ = "_":BL$ = "                ":L$ = "---------"
  414. 414 F% = 34: DIM F%(F%): DATA 2,2,2,5,2,7,7,7,7,7,7,5,5,5,9,9,9,9,9,9,9,9,9,5,7,7,7,7,7,7,9,9,14,14: FOR I = 1 TO F%: READ F%(I): NEXT 
  415. 415 HY$ = "-":M$ = "#":E$ = "E":Z$ = "YOUR ":AS$ = "+":H$ = "?":QA$ = "*":Q$ = "Q":P$ = "P":B$ = "B":Y$ = "Y":N$ = "N":C$ = "C":S$ = "S":SP$ = " ":CR$ =  CHR$(13):DQ$ =  CHR$(34):PD$ = ".":ES$ =  CHR$(27):U$ =  CHR$(1)
  416. 416 TC$ = " TO CONTINUE ":J$ = "TYPE ":ST% = 50:DD$ = "D":UL$ = ".":G$ = "G":SS$ = "s":CC$ = "c":BB$ = "b":QQ$ = "q":GG$ = "g":NU$ = "-NOT USED-":RT$ = DQ$ +"RETURN" +DQ$
  417. 417 NP% = 50:PG = 154 -NP%:A0 = PG *256: PRINT D$;"BLOADMASTER,A"A0:NT% =  PEEK(A0):TH% =  PEEK(A0 +1):NS% = NT% -TH%: DIM K(NS%)
  418. 418 H1 = 23:A1 = 1:A2 = 2:A3 = 3:A4 = 4:A5 = 5:A6 = 6:A7 = 7:A8 = 8:A9 = 9:B1 = 10:B2 = 11:B3 = 12:B4 = 13:B5 = 14:B6 = 15:B0 = 16:B7 = 17:B8 = 18:B9 = 19:C1 = 20:C2 = 21:C3 = 22:C4 = 23:C5 = 24:C6 = 25:C7 = 26:C8 = 27:C9 = 28:D1 = 29:D2 = 30:D3 = 31:D4 = 32:D5 = 33:D6 = 34
  419. 419 NE% = 33: DIM VE(NE%),HE%(NE%): DATA  2,3,4,5,6,8,9,10,11,12,13,15,15,16,18,19,19,20,21,2,3,5,6,8,10,11,13,14,15,16,18,19,21: FOR I = 1 TO NE%: READ VE(I): NEXT 
  420. 420  FOR I = 1 TO NE%:HE%(I) = 1: IF I >19  THEN HE%(I) = HC
  421. 421  NEXT :F1$ = "  SEE MANUAL PART ":NC% = 13: DIM E1%(NC%),E2%(NC%):E1%(1) = A1:E1%(2) = A2:E1%(3) = A3:E1%(4) = A4:E1%(5) = A5:E1%(6) = A6:E1%(7) = B6:E1%(8) = C1:E1%(9) = C3:E1%(10) = C6:E1%(11) = C8:E1%(12) = D1:E1%(13) = D3
  422. 422 E2%(1) = A1:E2%(2) = A2:E2%(3) = A3:E2%(4) = A4:E2%(5) = A5:E2%(6) = B2:E2%(7) = B9:E2%(8) = C2:E2%(9) = C4:E2%(10) = C7:E2%(11) = C9:E2%(12) = D2:E2%(13) = D4: GOTO 5
  423. 423 NV = 28: DIM V$(NV),TV$(17),GI%(17):D$ =  CHR$(4):O$ = D$ +"OPEN":R$ = D$ +"READ":W$ = D$ +"WRITE":K$ = D$ +"CLOSE": RETURN